home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / telecom / 86 / pascal / gdospas.doc < prev    next >
Encoding:
Internet Message Format  |  1986-12-19  |  1.5 KB
  1. Subject: Personal Pascal Problems with GDOS fixed!
  2.  
  3. After getting totally fed up with the response of CCD/OSS (makers of
  4. Personal Pascal / ST Pascal +) to two letters which I sent them about
  5. the problems of Personal Pascal with GDOS, I decided to have a look at
  6. the PASGEM libary to see what the problem is...after disassembling the
  7. object module GEMSYS.O, I had a working fix after 5 (in words: five) minutes!
  8. Declare the following external routines together with VDI_Call and
  9. AES_Call:
  10.  
  11. Procedure G_Set_Port(Handle : Integer);
  12. External;
  13.  
  14. Function Get_Port : Integer;
  15. External;
  16.  
  17. With these two calls you can get and set the PASGEM internal device
  18. handle...you don't have to put the handle in Contrl[6] when using
  19. VDI_Call...To start up a application properly do following:
  20.  
  21. Init_Gem;
  22. GrafHandle  := Graf_Hdl(Dummy,Dummy,Dummy,Dummy); {write this with AES_Call}
  23. G_Set_Port(GrafHandle);
  24. OpenVirtualWorkStation(GrafHandle); {Write this with VDI_Call, after the}
  25.                                     { call the new handle is in }
  26.                              { Control[6]  }
  27. G_Set_Port(GrafHandle);
  28.  
  29.  
  30. You should be able to switch between devices using theses two additional
  31. functions (I wonder why OSS didn't bother to document them...CCD doesn't seem
  32. to know that they exists either!).
  33.  
  34. Anyway as you can imagine a GDOS compatible version of UniTerm is practically
  35. finished with Tek 4010 output to printer , metafile etc. (that's naturally only
  36. if you have GDOS!).
  37.  
  38.                  Simon Poole
  39.